home *** CD-ROM | disk | FTP | other *** search
/ Word Play Farm / Word Play Farm.iso / pc / movies / rwrdfinl.dxr / 00157.ls < prev    next >
Encoding:
Text File  |  1996-07-26  |  1.6 KB  |  50 lines
  1. on mouseDown
  2.   global lastName
  3.   set current to the name of cast the castNum of sprite the clickOn
  4.   set oH to the locH of sprite the clickOn
  5.   set oV to the locV of sprite the clickOn
  6.   puppetSprite(the clickOn, 1)
  7.   puppetSprite(12, 1)
  8.   repeat with t = the clickOn + 1 to 7
  9.     set the visible of sprite t to 0
  10.   end repeat
  11.   set the castNum of sprite the clickOn to the number of cast "soundsMenu"
  12.   set the locH of sprite the clickOn to 145
  13.   set the locV of sprite the clickOn to 174
  14.   updateStage()
  15.   set the constraint of sprite 12 to the clickOn
  16.   set the locH of sprite 12 to the left of sprite the clickOn
  17.   repeat while the mouseDown
  18.     set the locV of sprite 12 to the mouseV
  19.     updateStage()
  20.   end repeat
  21.   set the constraint of sprite 12 to 0
  22.   set the locV of sprite 12 to 600
  23.   updateStage()
  24.   set mV to the mouseV - 13
  25.   set V to 0
  26.   set selection to 0
  27.   repeat while V < mV
  28.     set V to V + 22
  29.     set selection to selection + 1
  30.   end repeat
  31.   if (selection > 0) and (selection <= (the number of lines in field "soundsFld" - 1)) then
  32.     set current to line selection of field "soundsFld"
  33.     put line selection of field "soundsFld"
  34.   end if
  35.   set snd to current & "FX"
  36.   puppetSound(snd)
  37.   updateStage()
  38.   wait(1)
  39.   puppetSound(0)
  40.   set the castNum of sprite the clickOn to the number of cast current
  41.   set the locH of sprite the clickOn to oH
  42.   set the locV of sprite the clickOn to oV
  43.   updateStage()
  44.   set fld to lastName & "Fld"
  45.   put the castNum of sprite the clickOn into line the clickOn of field fld
  46.   repeat with t = the clickOn + 1 to 7
  47.     set the visible of sprite t to 1
  48.   end repeat
  49. end
  50.